home *** CD-ROM | disk | FTP | other *** search
- inherited FormObserverGrid: TFormObserverGrid
- Left = 308
- Top = 265
- Width = 598
- Height = 264
- Caption = ' Portfolio'
- Menu = MainMenu1
- OldCreateOrder = True
- OnCreate = FormCreate
- OnDestroy = nil
- PixelsPerInch = 96
- TextHeight = 13
- object LV: TListView
- Left = 0
- Top = 0
- Width = 590
- Height = 218
- Align = alClient
- Columns = <
- item
- Caption = 'Stock code'
- Width = 70
- end
- item
- Caption = 'Company name'
- Width = 100
- end
- item
- Caption = 'Quantity'
- Width = 60
- end
- item
- Caption = 'Price'
- Width = 75
- end
- item
- Caption = 'Value'
- Width = 80
- end>
- HotTrackStyles = []
- ReadOnly = True
- RowSelect = True
- PopupMenu = PopupMenu1
- TabOrder = 0
- ViewStyle = vsReport
- OnDblClick = LVDblClick
- end
- object MainMenu1: TMainMenu
- AutoMerge = True
- Left = 12
- Top = 36
- object Edit1: TMenuItem
- Caption = '&Edit'
- GroupIndex = 20
- object Edit2: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = LVDblClick
- end
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 56
- Top = 36
- object Edit3: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = LVDblClick
- end
- end
- end
-